Amiga Format CD 39/Amiga Format CD39 (1999-04-13)(Future Publishing)(GB)[!][issue 1999-05].iso/-seriously_amiga-/archivers/snesdiz/source/snesdiz.rexx

OS/2 REXX Batch file | 1999-02-22 | 10KB | 323 lines

/*

Super Nintendo Entertainment System File Identity Description Creator
$VER: SNESDiz 1.8 by DaFoX / OmenBBS

*/

SAY ""
SAY "    [ SNESDiz 1.8  DaFoX / OmenBBS ]"
SAY ""

/*
signal on break_c
signal on syntax
signal on ioerr
*/

If ~show('L', 'rexxdossupport.library') then do
  if ~addlib('rexxdossupport.library', 0, -30, 0) then do
   say "rexxdossupport.library not available, exiting ..."
   exit 20
  end
end

parse arg args

template = "Files/M,Diz/S,Ftp/S,Com/S,List/s,All/s"

call ReadArgs(args,template)
call ReadArgs(args,template,"args.")

If ~show('L', 'rexxreqtools.library') then do
  if ~addlib('rexxreqtools.library', 0, -30, 0) then do
   say "rexxreqtools.library not available, exiting ..."
   exit 20
  end
end

if ~list & args.files.count=0|args.files.0="?" then do
  say "Usage: FILES/M,DIZ/S,FTP/S,COM/S,LIST/S"
  Say "or start it without options and select SNES file ;)"
  args.files.0 = rtfilerequest('ram:',,"Pick a Super Nintendo file:", ,,
                         'rt_reqpos=reqpos_centerscr')
  if args.files.0~="" then args.files.count=1
  else exit
end

if pos("?",args.files.0)~=0 then do
if all=1 then args.files.0=args.files.0' All'
  address command 'list 'args.files.0 ' Files >T:SNESList Lformat %P%N'
  list=1
  args.files.0="T:SNESList"
end
cdiz=diz

if diz & ~FTP then do
  say "Creating File_Id.diz"

  if list=1 then do
     call open filel,args.files.0
     do until eof(filel)
       Afile=readln(filel)
       if Afile~="" then do;call open skriv,left(afile,pos(".",afile)-1)".diz","W";call dodiz;call close skriv;end
     end
  end
  if args.files.count~=1 & ~list then do
     do I=0 to args.files.count-1
       Afile=args.files.I
       if Afile~="" then do;call open skriv,left(afile,pos(".",afile)-1)".diz","W";call dodiz;call close skriv;end
     end
  end
  else do;Afile=args.files.0;call open skriv,"File_Id.diz","W";call dodiz;end

  exit
end

if FTP then do
  if Diz then do
    If ~show('L','rexxsupport.library') then do
      if ~addlib('rexxsupport.library', 0, -30, 0) then do
       say "rexxsupport.library not available, exiting ..."
       exit 20
      end
    end
  end
  if exists('index') then do
  call rtezrequest("Append or OverWrite Index file",,
                 "_Append|_OverWrite","Tell me", 'rt_reqpos=reqpos_centerscr')

    if rtresult == 1
     then call open skriv,"index","A"
    else call open skriv,"index","W"

  end
  else call open skriv,"index","W"
  if ~LIST then do
    do i = 0 by 1 for args.files.count
      afile=args.files.i
      call dodiz
    end
    exit
   end
end

if LIST then do
  if ~exists(args.files.0) then do
    say "Wath list???";exit
  end
  call open filel,args.files.0
  do until eof(filel)
    Afile=readln(filel)
    if Afile~="" then call dodiz
  end
  exit
end

do i = 0 by 1 for args.files.count
  afile=args.files.i
  call dodiz
end
exit

dodiz:
if ~exists(Afile) then do
  say "Can't open" Afile;return
end
if right(Afile,3)=".gz" then do
  address command 'gunzip -c 'afile'  > t:snestmp'
  call open file,"t:snestmp"
end
if left(right(Afile,2),1)="." then do
  if c2d(Afile,1)>1 then call open file,Left(AFile,length(Afile)-1)'1'
end

else call open file,Afile


x=0;cprom=0

call seek(file,256)
pas1=readch(file,256)

/*if c2x(left(readch(file,256),16))~="00000000000000000000000000000000" then*/

if left(pas1,16)~=right(left(pas1,32),16) then do
  cprom=1;seek(file,0,'B')
end

call seek(file,32704)
pas1=readch(file,27)
test1=c2x(left(pas1,21))

do a=2 to 21 by 2
/*say left(left(test1,a),2) x2d(left(test1,a),2)*/

  if x2d(left(test1,a),2) > 120 then x=x+1
  if x2d(left(test1,a),2) < 32 then x=x+1
end
/*say x*/
if x<2 then do
 diz=left(pas1,21)
 mr=c2x(pas1)
 rommet="low"
 end
else do
  y=0
  call seek(file,32725)
  bck=readch(file,16)
  pas2=readch(file,27)

    test1=c2x(left(pas2,21))
    do a=2 to 21 by 2
      if x2d(left(test1,a),2) > 120 then y=y+1
      if x2d(left(test1,a),2) < 32 then y=y+1
    end

  if y<x then do;diz=left(pas2,21); rommet="high";mr=c2x(pas2);end
  if y>x then do;diz=left(pas1,21); end
  if pas1=pas2 then diz=left(pas1,21)
  if diz="" then diz="unknown"
end
GameType=right(left(mr,46),2)
GameSize=x2d(right(left(mr,48),2))
BackupSize=x2d(right(left(mr,50),2))
Country=x2d(right(left(mr,52),2))
Manufactor=x2d(right(left(mr,54),2))
Version=x2d(right(left(mr,56),2))+1

/*
BackupSize=x2d(right(left(mr,50),2))
Version=x2d(right(left(mr,52),2))+1
Manufactor=x2d(right(left(mr,54),2))
*/

if GameType=0 then GameType="Rom"
if GameType=1 then GameType="Rom+Ram"
if GameType=2 then GameType="Rom+Backup"
if GameType=3 then GameType="Rom+Dsp1"
if GameType=4 then GameType="Rom+Ram+Dsp1"
if GameType=5 then GameType="Rom+Backup+Dsp1"
if GameType=0 then GameType="FX"

if Country=0 then Country="Japan (NTSC)"
if Country=1 then Country="U.S.A (NTSC)"
if Country=2 then Country="Australia, Europe, Oceania, Asia"
if Country=3 then Country="Sweden"
if Country=4 then Country="Finland"
if Country=5 then Country="Denmark"
if Country=6 then Country="France"
if Country=7 then Country="Holland"
if Country=8 then Country="Spain"
if Country=9 then Country="Germany, Austria and Switzerland"
if Country=10 then Country="Italy"
if Country=11 then Country="Hong Kong and China"
if Country=12 then Country="Indonesia"
if Country=13 then Country="Korea"

if gamesize~=0 then do
 Size=8
  do a=1 to Gamesize
  size=size*2
 end
 if size>512 then Gamesize=Size/1024 'MBit'
  else Gamesize=Size 'Kbit'
 end
Else Gamesize="None"

if Backupsize~=0 then do
 Size=8
  do a=1 to Backupsize
  size=size*2
 end
 if size>512 then Backupsize=Size/1024 'MBit'
  else Backupsize=Size 'Kbit'
 end
Else Backupsize="None"

If Manufactor=51 then do
  /*
  say c2x(left(bck,1))
  say (x2d(c2x(left(bck,1)))-48)*16
  say x2d(c2x(right(left(bck,2),1)))-48

  VERY EXPREMENTAL

  */
  Manufactor=(x2d(c2x(left(bck,1)))-48)*16+x2d(c2x(right(left(bck,2),1)))-48
end
if manufactor>255|manufactor<1 then Manufactor=4
manuf = 'Nintendo Ajinomoto Imagineer u Zamuse Falcom u Capcom Activision Jaleco Storm u Micronet Technos Mebio_Software u u Gremlin ECA NCS Cobra_Team Human KOI Hudson_Soft B-ai Yanoman u Temco u Forum Park_Place_Prod. IKSS Tokai_Engeneering Pow Loriciel u u Enix Loriciel Kemco Seta Culture_Brain Williams_ent. Sotsu_Agency Visit Intec System_Sacom Viacom Carrozzeria Dynamic u Magicfact Epyx u u u u u u Empire Loriciel Gremlin u Seika Ubisoft u u u u Sculpture Spectrum_Holobyte u Irem u Raya_Systems Renovation_Pr. T*HQ_inc. u U.S.Gold Absolute_Ent. Acclaim Activision American_Sammy Gametek HiTech_Expressions LJN u u u Mindscape Romstar u Tradewest u American_Softworks Titus Virgin Maxis Origin_Games u u u Ocean_Software u Electronic_Arts u Laser_Beam u u Elite Toei Infogrames Interplay JVC/Lucas_Arts Sculpture u Storm/Sales_Curve u u THQ Accolade Triffix u Microprose u u Kemco Misawa Teichiko Namco Lozc Koei Tokuma_Shoten Tsukuda_Original Datam_Polystar u u u Bullet_Proof_Softw. Vic_Tokai u Character_Soft I-Max Takara Chun_Soft System_3 Interbec u Varie_Corp. Temco Kaneko u Packin_Video Nichibutsu Temco Imagineer u u u Telenet Hori_Electric u u Konami Kac u Takara u Technos JVC u Toei_Animations Toho u Namcot Acclaim Ascii Bandai Various Enix u Hal u u u Culture_Brain Sunsoft Toshiba-EMI Sony_Imagesoft u Sammy Taito u Kemco SquareSoft u Data_East Tonkin_House Ocean Koei u Konami Vap_Inc. u Meldac Pony_Canyon Sotsu_Agency_Sunrise Taito Sofel Quest_Corp. Sigma_Ent. Ask_Kodahae u Naxat_Soft u Capcom Ban_Presto Tomy Hiro u NCS Human Altron Kk_dce u Toei u T_&_E_Soft Epoch u Athena Asmik Natsume King_Records Atlus Sony u Disney u u Motown Left_Field Beam_Software Tec_Magik u u u Jaleco Cybersoft u u u u Davidson'
Manufactor=Word( manuf, Manufactor )
if Manufactor="u" Then Manufactor="Unknown"
x=pos("_",Manufactor)
if x~=0 then Manufactor=left(Manufactor,x-1) right(Manufactor,length(Manufactor)-x)

x=pos("\",diz,15)
if x~=0 then diz=left(diz,x-1)
diz=upper(left(diz,1))trim(translate(right(diz,length(diz)-1), xrange('a','z'), xrange('A', 'Z')))
do a=2 to length(diz)
  if big=1 then do
    diz=left(diz,a-1)Upper(right(left(diz,a),1))right(diz,length(diz)-a)
  end
  big=0
  if right(left(diz,a),1)=" " then big=1
  if right(left(diz,a),1)="." then big=1
end

if cDIZ then do
  if ftp then do
    call writeln skriv,left(Filepart(afile),15)Right(Word(statef(Afile),2),10) date(E) "- -[ SNES ]------------------------------- -"
    call writeln skriv,"                                   Name:       "diz
    call writeln skriv,"                                   Manufactor: "Manufactor
    call writeln skriv,"                                   GameSize:   "GameSize
    call writeln skriv,"                                   Backupsize: "Backupsize
    call writeln skriv,"                                   Country:    "Country
    call writeln skriv,"                                   - ------------------------[ FXSNESDIZ ]--- -"
    end
  else do
   call writeln skriv,"- -[ SNES ]------------------------------- -"
   call writeln skriv,"Name:       "diz
   call writeln skriv,"Manufactor: "Manufactor
   call writeln skriv,"GameSize:   "GameSize
   call writeln skriv,"Backupsize: "Backupsize
   call writeln skriv,"Country:    "Country
   if cprom=1 then call writeln skriv,"Warring:    Missing 512byte Header"
   call writeln skriv,"- ------------------------[ FXSNESDIZ ]--- -"
  end
end
else if FTP then do
  call writeln skriv,left(Filepart(afile),30) diz' (c) 'Manufactor
end
if COM then address command("Filenote" '"'Afile'"' '"'diz' (c) 'Manufactor'"')

/*if ~cdiz & ~ftp & ~com & filearc~=1 then do*/
if ~cdiz & ~ftp & ~com then do
  say ""
  Say "- -[ SNES ]------------------------------- -"
  if list then say "FILE: "afile
  say "Name:       "diz
  Say "Manufactor: "Manufactor
  say "GameSize:   "GameSize
  say "Backupsize: "Backupsize
  say "Country:    "Country
  if cprom=1 then say "Warring:    Missing 512byte Header"
  say "- ------------------------[ FXSNESDIZ ]--- -"
end
call close file
return

IOERR:
 Say ' '
 say 'Load Error!';exit
break_c:
 Say ' '
 Say 'Break Error!';exit
syntax:
 Say ' '
 Say 'Syntax Error!'
 if ~exists('Libs:rexxdossupport.library') then Say "SNESDiz Requiers: rexxdossupport.library, Get it From Aminet!"
 if ~exists('Libs:rexxreqtools.library') then Say "SNESDiz Requiers: rexxreqtools.library, Get it From Aminet!"
 if ~exists('Libs:rexxsupport.library') then Say "SNESDiz Requiers: rexxsupport.library"
 exit